home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / x11 / x-win-sun.el.z / x-win-sun.el
Encoding:
Text File  |  1998-05-21  |  8.2 KB  |  254 lines
  1. ;;; x-win-sun.el --- runtime initialization for Sun X servers and keyboards
  2. ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
  3.  
  4. ;; Authors: jwz, ben, martin
  5. ;; Keywords: terminals
  6.  
  7. ;; This file is part of XEmacs.
  8.  
  9. ;; XEmacs is free software; you can redistribute it and/or modify it
  10. ;; under the terms of the GNU General Public License as published by
  11. ;; the Free Software Foundation; either version 2, or (at your option)
  12. ;; any later version.
  13.  
  14. ;; XEmacs is distributed in the hope that it will be useful, but
  15. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  16. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.     See the GNU
  17. ;; General Public License for more details.
  18.  
  19. ;; You should have received a copy of the GNU General Public License
  20. ;; along with XEmacs; see the file COPYING.  If not, write to the 
  21. ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  22. ;; Boston, MA 02111-1307, USA.
  23.  
  24. ;;; Commentary:
  25.  
  26. ;; This file is loaded by x-win.el at run-time when we are sure that XEmacs
  27. ;; is running on the display of a Sun.
  28.  
  29. ;; The Sun X server (both the MIT and OpenWindows varieties) have extremely
  30. ;; stupid names for their keypad and function keys.  For example, the key
  31. ;; labeled 3 / PgDn, with R15 written on the front, is actually called F35.
  32.  
  33. ;; There are 3 methods of dealing with the Sun key brokenness:
  34. ;;
  35. ;; - Use xmodmap to give all keys more sensible names for all apps:
  36. ;;   I use this shell script:
  37. ;;
  38. ;;   for i in 0 1 2 3 4 5 6 7 8 9 Add Subtract Multiply Divide Decimal ; do
  39. ;;     echo "keysym KP-$i = KP-$i"
  40. ;;   done | xmodmap
  41. ;;
  42. ;;   Clearly, as a good X11 citizen, we can't do this.
  43. ;;
  44. ;; - Use keyboard-translate-table to remap the keybindings at a low level.
  45. ;;   This approach is taken in the function `sun-x11-keyboard-translate'.
  46. ;;   This is like running xmodmap within XEmacs only.
  47. ;;   This is not the default, however, so that legacy keybindings in users'
  48. ;;   .emacs files like (global-set-key [(f35)] 'foo) continue to work
  49. ;;
  50. ;; - Use keyboard macros to provide indirection for keybindings.
  51. ;;   If we do (global-set-key [(f35)] [(kp-3)]), then the user's keybindings
  52. ;;   work whether he uses `f35' or `kp-3'.
  53. ;;   This is also compatible with FSF Emacs and other X11 apps.
  54. ;;   Although this has the disadvantage that these remappings
  55. ;;   only work with the global key map, we use this as the default.
  56. ;;
  57. ;; - The Right Way to do this remains to be written...
  58.  
  59. ;; OK, here's another try at doing things the right way.
  60.  
  61. ;; We use function-key-map, which honors explicit key-bindings for the
  62. ;; stupid Sun names, but also allows indirection if no explicit
  63. ;; key-binding exists.
  64.  
  65. ;;; Code:
  66.  
  67.   (defun x-remap-keysyms-using-function-key-map (from-key to-key)
  68.     (dolist (prefix '(() (shift) (control) (meta) (alt)
  69.               (shift control) (shift alt) (shift meta)
  70.               (control alt) (control meta) (alt meta)
  71.               (shift control alt) (shift control meta)
  72.               (shift alt meta) (control alt meta)
  73.               (shift control alt meta)))
  74.       (define-key function-key-map
  75.     (append prefix (list from-key))
  76.     (vector (append prefix (list to-key))))))
  77.  
  78.   ;; help is ok
  79.   ;; num_lock is ok
  80.   ;; up is ok
  81.   ;; left is ok
  82.   ;; right is ok
  83.   ;; kp-add is ok
  84.   ;; down is ok
  85.   ;; insert is ok
  86.   ;; delete is ok
  87.   ;; kp-enter is ok
  88.   ;; Sun Function keys
  89.   (loop for (from-key to-key) in
  90.     `((f21 pause)
  91.       (f22 print)
  92.       (f23 scroll_lock)
  93.  
  94.       ;; X11 R6 mappings
  95.       (SunProps props)
  96.       (SunFront front)
  97.       (SunOpen  open)
  98.       (SunFind  find)
  99.       (cancel   stop)
  100.       (Undo     undo)
  101.       (SunCopy  copy)
  102.       (SunPaste paste)
  103.       (SunCut   cut)
  104.  
  105.       (f13 props)
  106.       (f14 undo)
  107.       (f15 front)
  108.       (f16 copy)
  109.       (f17 open)
  110.       (f18 paste)
  111.       (f19 find)
  112.       (f20 cut)
  113.  
  114.       (f25 kp-divide)
  115.       (f26 kp-multiply)
  116.       (f31 kp-5)
  117.  
  118.       ;; Map f33 and r13 to end or kp-end
  119.       ,@(cond
  120.      ((not (x-keysym-on-keyboard-sans-modifiers-p 'end))
  121.       '((f33 end)
  122.         (r13 end)))
  123.      ((not (x-keysym-on-keyboard-sans-modifiers-p 'kp-end))
  124.       '((f33 kp-end)
  125.         (r13 kp-end))))
  126.  
  127.       ,@(when (x-keysym-on-keyboard-sans-modifiers-p 'f36)
  128.       '((f36 stop)
  129.         (f37 again)))
  130.  
  131.       ;; Type 4 keyboards have a real kp-subtract  and a f24 labelled `='
  132.       ;; Type 5 keyboards have no key labelled `=' and a f24 labelled `-'
  133.       ,@(when (x-keysym-on-keyboard-sans-modifiers-p 'f24)
  134.       `((f24 ,(if (x-keysym-on-keyboard-sans-modifiers-p 'kp-subtract)
  135.               'kp-equal
  136.             'kp-subtract))))
  137.  
  138.       ;; Map f27 to home or kp-home, as appropriate
  139.       ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p 'home))
  140.            '((f27 home)))
  141.           ((not (x-keysym-on-keyboard-sans-modifiers-p 'kp-home))
  142.            '((f27 kp-home))))
  143.  
  144.       ;; Map f29 to prior or kp-prior, as appropriate
  145.       ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p 'prior))
  146.            '((f29 prior)))
  147.           ((not (x-keysym-on-keyboard-sans-modifiers-p 'kp-prior))
  148.            '((f29 kp-prior))))
  149.  
  150.       ;; Map f35 to next or kp-next, as appropriate
  151.       ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p 'next))
  152.            '((f35 next)))
  153.           ((not (x-keysym-on-keyboard-sans-modifiers-p 'kp-next))
  154.            '((f35 kp-next))))
  155.  
  156.       ,@(cond ((x-keysym-on-keyboard-sans-modifiers-p 'apRead) ; SunOS 4.1.1
  157.            '((apRead f11) (apEdit f12)))
  158.           ((x-keysym-on-keyboard-sans-modifiers-p 'SunF36) ; SunOS 5
  159.            '((SunF36 f11)
  160.          (SunF37 f12)
  161.          (f11    stop)
  162.          (f12    again))))
  163.       )
  164.     do (when (x-keysym-on-keyboard-sans-modifiers-p from-key)
  165.      (x-remap-keysyms-using-function-key-map from-key to-key)))
  166.  
  167.   (unintern 'x-remap-keysyms-using-function-key-map)
  168.  
  169.   ;; for each element in the left column of the above table, alias it
  170.   ;; to the thing in the right column.  Then do the same for many, but
  171.   ;; not all, modifier combinations.
  172.   ;;
  173.   ;; (Well, we omit hyper and super. #### Handle this some other way!)
  174.   ;;  (while mapping
  175.   ;;    (let ((mods '(() (shift) (control) (meta) (alt))))
  176.   ;;      (while mods
  177.   ;;    (let ((k1 (vector (append (car mods) (list (car (car mapping))))))
  178.   ;;          (k2 (vector (append (car mods) (list (cdr (car mapping)))))))
  179.   ;;      (define-key global-map k1 k2))
  180.   ;;    (setq mods (cdr mods))))
  181.   ;;    (setq mapping (cdr mapping))))
  182.  
  183. ;;; I've extended keyboard-translate-table to work over keysyms.
  184. ;;; [FSF Emacs has something called `system-key-alist' that is
  185. ;;; supposed to accomplish approximately the same thing.  Unfortunately,
  186. ;;; it's brain-dead in the typically FSF way, and associates *numbers*
  187. ;;; (who knows where the hell they come from?) with symbols.] --ben
  188.  
  189. ;;; And I've made it into a function which is NOT called by default --martin
  190.  
  191. (defun sun-x11-keyboard-translate ()
  192.   "Remap Sun's X11 keyboard.
  193. Keys with names like `f35' are remapped, at a low level,
  194. to more mnemonic ones,like `kp-3'."
  195.   (interactive)
  196.   (keyboard-translate
  197.    'f11        'stop        ; the type4 keyboard Sun/MIT name
  198.    'f36        'stop        ; the type5 keyboard Sun name
  199.    'cancel    'stop            ; R6 binding
  200.    'f12        'again        ; the type4 keyboard Sun/MIT name
  201.    'f37        'again        ; the type5 keyboard Sun name
  202.    'f13        'props        ;
  203.    'SunProps    'props            ; R6 binding
  204.    'f14        'undo        ;
  205.    'f15        'front        ;
  206.    'SunFront    'front            ; R6 binding
  207.    'f16        'copy        ;
  208.    'SunCopy    'copy            ; R6 binding
  209.    'f17        'open        ;
  210.    'SunOpen    'open            ; R6 binding
  211.    'f18        'paste        ;
  212.    'SunPaste    'paste            ; R6 binding
  213.    'f19        'find        ;
  214.    'f20        'cut        ;
  215.    'SunCut    'cut            ; R6 binding
  216.    ;; help is ok
  217.    'f21 'pause
  218.    'f22 'prsc
  219.    'f23 'scroll
  220.    ;; num_lock is ok
  221.    ;;'f24 'kp-equal)            ; type4 only!
  222.    'f25 'kp-divide            ;
  223.    'f26 'kp-multiply            ;
  224.    'f24 'kp-subtract            ; type5 only!
  225.    'f27 'kp-7                ;
  226.    ;; up is ok
  227.    'f29 'kp-9
  228.    ;; left is ok
  229.    'f31 'kp-5
  230.    ;; right is ok
  231.    ;; kp-add is ok
  232.    'f33 'kp-1                ; the Sun name
  233.    'r13 'end                ; the MIT name
  234.    ;; down is ok
  235.    'f35 'kp-3
  236.    ;; insert is ok
  237.    ;; delete is ok
  238.    ;; kp-enter is ok
  239.    'SunF36 'f11            ; Type 5 keyboards
  240.    'SunF37 'f12            ; Used to be Stop & Again
  241.    ))
  242.   
  243.  
  244. ;;; OpenWindows-like "find" processing.
  245. ;;; As far as I know, the `find' key is a Sunism, so we do that binding
  246. ;;; here.  This is the only Sun-specific keybinding.  (The functions
  247. ;;; themselves are in x-win.el in case someone wants to use them when
  248. ;;; not running on a Sun display.)
  249.  
  250. (define-key global-map 'find        'ow-find)
  251. (define-key global-map '(shift find)    'ow-find-backward)
  252.  
  253. ;;; x-win-sun.el ends here
  254.